home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Format CD 41
/
Amiga Format CD41 (1999-06)(Future Publishing)(GB)[!][issue 1999-07].iso
/
-seriously_amiga-
/
virus
/
virus_checkerii
/
install_virus_checker
< prev
next >
Wrap
Text File
|
1999-04-19
|
16KB
|
605 lines
;VirusCheckerII's New Installer Script
;
;$VER: Virus_CheckerII_Installer v2.01 (06.04.99) ß1998-1999 by Alex van Niel
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;
;;; Get the version and revision number of file/device/library/OS/etc
;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;
; Taken from original Installer Script of Virus_Checker and Virus_CheckerII
;
; INPUTS: Item ; Name of device/file/library/etc. "" for OS version
;
; OUTPUTS: VerN ; (long) version/revision number
; Ver ; Version number
; Rev ; Revision number
; NOTE: Both Ver and Rev returned as 0 if "WV_Item" does not exist
;
(procedure WhatVersion
(
(if (= VerN "")
(set VerNum (getversion)) ; For OS
(set VerNum (getversion VerN))) ; For other "files"
(set Ver (/ VerNum 65536))
(set Rev (- VerNum (* Ver 65536)))
)
)
(procedure P_setvcenv
(
(set #vcpath_env (cat
("setenv Virus_Checker_Path \"%s\"\n" @default-dest)
("copy env:Virus_Checker_Path envarc: quiet\n")
)
)
(textfile
(dest "T:VCEnvSet")
(append #vcpath_env)
)
(execute "T:VCEnvSet")
(delete "T:VCEnvSet")
)
)
(set #hail (cat "VirusCheckerII Installation Utility\n\n"
"VirusCheckerII is ShareWare,\n"
"please consider registering.\n\n"
"VirusCheckerII is (c)1997/1999 by Alex van Niel\n"
"Virus_Checker is (c)1990/1995 by John Veldthuis\n"
)
)
(set #fullinstall "Full Install")
(set #update "Update")
(set #where_vc (cat "First, please select the directory to put Virus_CheckerII in.\n\n"
"The Installer will create a drawer called \'Virus_CheckerII\' "
"where all the files are put into. You don't need to make "
"one yourself."
)
)
(set #whatinstall (cat "Would you like to install VirusCheckerII fully "
"or do you want to update a currently installed version?"
)
)
(set #installhelp (cat "Full Install, installs the complete program, "
"update, installs only the files that are new or not "
"yet present.\n"
"Libraries, the latest brainfile and the main executable "
"are good examples of files that would possibly be copied "
"if they have been changed since the last release."
)
)
(set #allfiles "Copying all files from distribution archive")
(set #copyallfiles (cat "The Installer is about to copy all the files from the "
"distribution archive to \"%s\". It will not check "
"the versions of the files, so beware.\n\n"
"If you already have installed, VirusCheckerII and want "
"to update it, please press abort, start the installer again and choose "
"update instead."
)
)
(set #none "None")
(set #bestplace (cat "The best place to have VirusCheckerII started from is from the User-startup "
"that way it can monitor the system as early as possible and allowable. "
"You can also choose WBStartup for easy acces and still a pretty good safety "
"Choose User-Startup if you want to have the installer add a line to your "
"User-Startup, else choose WBStartup and the installer will copy a special "
"icon to the WBStartup drawer, or None if you aren't sure yet and want to decide later."
)
)
(set #vcrunfrom (cat "To have VirusCheckerII start as early as possible, choose User-Startup "
"and the installer will add a line to your User-Startup. VirusCheckerII will then "
"automatically startup when you boot your system.\n\n"
"To have VirusCheckerII start from your WBStartup, choose the related button. "
"The installer will copy a special icon to the WBStartup and VirusCheckerII will "
"be started when your workbench is launched.\n\n"
"If you aren\'t sure when you want VirusCheckerII to be started, just press None "
"that way you can choose later."
)
)
(set #vcrunchoose "Please choose how/when you want VirusCheckerII to be started...")
(set #adddat "The installer needs to add the following line to your \s:User-Startup\ file\n\n%s")
(set #copyvcbrain "Copying VirusChecker.brain")
(set #copyxfdlib "Copying xfdmaster.library")
(set #copybguilib "Copying bgui.library")
(set #copyxfddecrs "Copying XFD external decrunchers, please choose which ones to install")
(set #copyxvslib "Copying Xvs.Library")
(set #copyxadlib "Copying Xadmaster.Library")
(set #copyxfddecrs "Copying XAD external decrunchers, please choose which ones to install")
(set #copyvcprefs "Copying VCPrefs")
(set #copyvcpparts "Copying extra parts of VCPrefs...")
(set #copyinglibs "The installer is about to install the libraries supplied with this archive into LIBS:, ")
(set #copyvcproject "Copying and Adjusting VirusChecker startup Icon")
(set #adjtooltype "Adjusting ToolType")
(set #makevcdir "Creating VirusCheckerII drawer")
(set #skip "Skip this part")
(set #proceed "Proceed")
(set #proceedhelp (cat "Press \'Proceed\' to install the part, or press skip if you don't want "
"to install that particular part but do want to continue installing "
"Virus_CheckerII. You could also press Abort Install to stop the complete "
"installation."
)
)
(set #upd-guide "Updating Guide")
(set #upd-main "Updating Virus_CheckerII")
(set #upd-brain "Updating VirusChecker.brain")
(set #upd-xvs "Updating Xvs.Library")
(set #upd-xfd "Updating XfdMaster.Library")
(set #upd-xad "Updating XadMaster.Library")
(set #upd-vcp "Updating VCPrefs")
(set #updating (cat "The installer is about to update Virus_CheckerII in\n"
"\'%s\'.\n"
"Is this correct?\n"
"(If you want to have Virus_CheckerII updated in another directory, "
"then press \'No\' and you will automatically get a requester to "
"choose the correct drawer)\n"
"If you have not installed Virus_CheckerII fully before, then "
"I recommend that you abort this installation for now and choose "
"\'Full Install\' instead."
)
)
(set #versions (cat
"Currently installed versions (1/2):\n\n"
"Virus_CheckerII v%ld.%ld\n"
"VirusChecker.brain v%ld.%ld\n"
"VirusChecker.guide v%ld.%ld\n"
"Xvs.Library v%ld.%ld\n\n"
"Versions in archive:\n"
"Virus_CheckerII v%ld.%ld\n"
"VirusChecker.brain v%ld.%ld\n"
"VirusChecker.guide v%ld.%ld\n"
"Xvs.Library v%ld.%ld\n"
"(Files that have version 0.0 are in fact not installed)"
)
)
(set #versions2 (cat
"Currently installed versions (2/2):\n\n"
"XfdMaster.Library v%ld.%ld\n"
"XadMaster.Library v%ld.%ld\n"
"VCPrefs v%ld.%ld\n\n"
"Versions in archive:\n"
"XfdMaster.Library v%ld.%ld\n"
"XadMaster.Library v%ld.%ld\n"
"VCPrefs v%ld.%ld\n"
"(Files that have version 0.0 are in fact not installed)"
)
)
(set #install_dir "Please specify where VirusCheckerII should be installed\n(A drawer will be created here)")
(set #update_dir "Please specify path of already installed VirusCheckerII")
(set #needtoreset (cat "Virus_CheckerII is an Anti Virus utility which is worked upon almost "
"24hrs a day. Problems might rise in spite of this. Most of these "
"problems however are caused by not or half reading the documentation. "
"I therefore recommend that you read the documentation from front to back. It "
"might happen that some problems are not solved even then, if so, feel free to "
"contact me. How can be found in the documentation.\n\n"
"I personally recommend that you reset your computer now so that Virus_CheckerII "
"can start properly."
)
)
(set #yes "Yes")
(set #no "No")
(welcome)
(message #hail)
(set #dofull (askbool (default 1)
(prompt #whatinstall)
(help #installhelp)
(choices #fullinstall #update)
)
)
(if #dofull
(
(complete 0)
(message #where_vc)
(set #vcpath (askdir (prompt #install_dir)
(help @askdir-help)
(default @default-dest)
)
)
(set @default-dest (tackon #vcpath "Virus_CheckerII"))
(P_setvcenv)
( ;copying all the files from the distribution
(message (#copyallfiles @default-dest))
(copyfiles (prompt #allfiles)
(source "")
(dest @default-dest)
(all)
(infos)
(optional nofail askuser )
)
(complete 45)
(set #user (askbool (default 1)
(prompt #copyinglibs)
(help #proceedhelp)
(choices #proceed #skip)
)
)
(if #user
(
(complete 50)
(copylib (prompt #copyxfdlib)
(help @copylib-help)
(source "libs/xfdmaster.library")
(dest "LIBS:")
(optional nofail askuser)
)
(complete 60)
(copylib (prompt #copybguilib)
(help @copylib-help)
(source "libs/bgui.library")
(dest "LIBS:")
(optional nofail askuser)
)
(complete 70)
(copyfiles (prompt #copyxfddecrs)
(help @copyfiles-help)
(source "libs/xfd")
(dest "LIBS:xfd")
(all)
(optional nofail askuser)
(confirm)
)
(complete 80)
(copylib (prompt #copyxvslib)
(help @copylib-help)
(source "libs/Xvs.library")
(dest "LIBS:")
(optional nofail askuser)
)
(complete 85)
(copylib (prompt #copyxadlib)
(help @copylib-help)
(source "libs/xadmaster.library")
(dest "LIBS:")
(optional nofail askuser)
)
(complete 90)
(copyfiles (prompt #copyxaddecrs)
(help @copyfiles-help)
(source "libs/xad")
(dest "LIBS:xad")
(all)
(optional nofail askuser)
(confirm)
)
(copylib (prompt #copyvcprefs)
(help @copylib-help)
(source "VCPrefs")
(dest "SYS:Prefs")
(optional nofail askuser)
)
(copyfiles (prompt #copyvcpparts)
(help @copyfiles-help)
(source "Classes/Gadgets/tabs.gadget")
(dest "LIBS:Gadgets")
(all)
(optional nofail)
(confirm)
)
)
)
)
(complete 95)
(
(message #vcrunfrom)
(set #vc-startup (askchoice
(prompt #vcrunchoose)
(help #bestplace)
(default 0)
(choices "User-Startup" "WBStartup" #none)
)
)
(if (= #vc-startup 0)
(
(set #vc-cmd (tackon @default-dest "Virus_CheckerII"))
(startup @app-name (prompt (#adddat #vc-cmd))
(help @startup-help)
(command #vc-cmd)
)
(copylib (prompt #copyvcbrain)
(help @copylib-help)
(source "VirusChecker.brain")
(dest "L:")
(optional nofail askuser)
)
)
)
(if (= #vc-startup 1)
(
(copyfiles (prompt #copyvcproject)
(help @copylib-help)
(source "VC_II_Project.info")
(dest "SYS:WBStartup/")
(newname "Virus_CheckerII.info")
(optional nofail askuser)
)
(set #vcprojecttool (tackon @default-dest "Virus_CheckerII"))
(tooltype
(prompt #adjtooltype)
(dest "SYS:WBStartup/Virus_CheckerII")
(setdefaulttool #vcprojecttool)
)
)
)
(if (= #vc-startup 2)
)
(complete 100)
)
) ;then statement
( ;else statement
(complete 0)
(if (= (exists "ENV:Virus_Checker_Path" (noreq)) 1)
(set @default-dest (getenv "Virus_Checker_Path"))
(
(set #updpath (askdir (prompt #update_dir)
(help @askdir-help)
(default @default-dest)
)
)
(set @default-dest #updpath)
)
)
(set #userupd (askbool (default 1)
(prompt (#updating @default-dest))
(help #upddirhelp)
(choices #yes #no)
)
)
(if (= #userupd 0)
(
(set #updpath (askdir (prompt #update_dir)
(help @askdir-help)
(default @default-dest)
)
)
(set @default-dest #updpath)
)
)
(complete 10)
(if (= (exists "L:VirusChecker.brain" (noreq)) 1)
(
(set VerN "L:VirusChecker.brain")
(WhatVersion)
(set #brainver Ver)
(set #brainrev Rev)
)
(
(set VerN (tackon @default-dest "VirusChecker.brain"))
(WhatVersion)
(set #brainver Ver)
(set #brainrev Rev)
)
)
(set VerN (tackon @default-dest "Virus_CheckerII"))
(WhatVersion)
(set #mainver Ver)
(set #mainrev Rev)
(set VerN (tackon @default-dest "Virus_Checker.guide"))
(WhatVersion)
(set #guidever Ver)
(set #guiderev Rev)
(set VerN "Virus_CheckerII")
(WhatVersion)
(set #main2ver Ver)
(set #main2rev Rev)
(set VerN "VirusChecker.brain")
(WhatVersion)
(set #brain2ver Ver)
(set #brain2rev Rev)
(set VerN "Virus_Checker.guide")
(WhatVersion)
(set #guide2ver Ver)
(set #guide2rev Rev)
(set VerN "Libs:Xvs.Library")
(WhatVersion)
(set #xvsver Ver)
(set #xvsrev Rev)
(set VerN "Libs/Xvs.Library")
(WhatVersion)
(set #xvs2ver Ver)
(set #xvs2rev Rev)
(message (#versions #mainver #mainrev #brainver #brainrev #guidever #guiderev #xvsver #xvsrev #main2ver #main2rev #brain2ver #brain2rev #guide2ver #guide2rev #xvs2ver #xvs2rev))
(if (> (+ (< #xvsver #xvs2ver) (< #xvsrev #xvs2rev) ) 0)
(copyfiles (prompt #upd-xvs)
(help @copylib-help)
(source "libs/Xvs.library")
(dest "LIBS:")
(optional nofail askuser)
)
)
(if (> (+ (< #guidever #guide2ver) (< #guiderev #guide2rev) ) 0)
(copyfiles (prompt #upd-guide)
(help @copylib-help)
(source "Virus_Checker.guide")
(dest @default-dest)
(optional nofail askuser)
)
)
(complete 30)
(if (> (+ (< #mainver #main2ver) (< #mainrev #main2rev) ) 0)
(copyfiles (prompt #upd-main)
(help @copylib-help)
(source "Virus_CheckerII")
(dest @default-dest)
(optional nofail askuser)
)
)
(complete 50)
(if (= (exists "L:VirusChecker.brain" (noreq)) 1)
(
(if (> (+ (< #brainver #brain2ver) (< #brainrev #brain2rev) ) 0)
(copyfiles (prompt #upd-brain)
(help @copylib-help)
(source "VirusChecker.brain")
(dest "L:")
(optional nofail askuser)
)
)
(if (> (+ (< #brainver #brain2ver) (< #brainrev #brain2rev) ) 0)
(copyfiles (prompt #upd-brain)
(help @copylib-help)
(source "VirusChecker.brain")
(dest @default-dest)
(optional nofail askuser)
)
)
)
(
(if (> (+ (< #brainver #brain2ver) (< #brainrev #brain2rev) ) 0)
(copyfiles (prompt #upd-brain)
(help @copylib-help)
(source "VirusChecker.brain")
(dest @default-dest)
(optional nofail askuser)
)
)
)
)
(set VerN "Libs:Xfdmaster.Library")
(WhatVersion)
(set #xfdver Ver)
(set #xfdrev Rev)
(set VerN "Libs/Xfdmaster.Library")
(WhatVersion)
(set #xfd2ver Ver)
(set #xfd2rev Rev)
(set VerN "Libs:Xadmaster.Library")
(WhatVersion)
(set #xadver Ver)
(set #xadrev Rev)
(set VerN "Libs/Xadmaster.Library")
(WhatVersion)
(set #xad2ver Ver)
(set #xad2rev Rev)
(set VerN "SYS:Prefs/VCPrefs")
(WhatVersion)
(set #vcpver Ver)
(set #vcprev Rev)
(set VerN "VCPrefs")
(WhatVersion)
(set #vcp2ver Ver)
(set #vcp2rev Rev)
(message (#versions2 #xfdver #xfdrev #xadver #xadrev #vcpver #vcprev #xfd2ver #xfd2rev #xad2ver #xad2rev #vcp2ver #vcp2rev))
(if (> (+ (< #xfdver #xfd2ver) (< #xfdrev #xfd2rev) ) 0)
(copyfiles (prompt #upd-xfd)
(help @copylib-help)
(source "libs/XfdMaster.Library")
(dest "LIBS:")
(optional nofail askuser)
)
)
(if (> (+ (< #xadver #xad2ver) (< #xadrev #xad2rev) ) 0)
(copyfiles (prompt #upd-xad)
(help @copylib-help)
(source "libs/XadMaster.Library")
(dest "LIBS:")
(optional nofail askuser)
)
)
(if (> (+ (< #vcpver #vcp2ver) (< #vcprev #vcp2rev) ) 0)
(copyfiles (prompt #upd-vcp)
(help @copylib-help)
(source "VCPrefs")
(dest "SYS:Prefs")
(optional nofail askuser)
)
)
(P_setvcenv)
(complete 100)
)
)
(if (= #vc-startup 2)
(exit)
(exit #needtoreset)
)
